home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Icons / Explode Cicn 1.1 ƒ / Source files / MCicn.p < prev    next >
Encoding:
Text File  |  1990-11-17  |  485 b   |  28 lines  |  [TEXT/ttxt]
  1. PROGRAM Cicn;
  2.  
  3. {$MC68020 -}
  4. {$MC68881 -}
  5.  
  6. USES UMacApp, UPrinting, UList, UGridView, UCicn;
  7.  
  8. Var
  9.     gCicnApplication : TCicnApplication;
  10.  
  11. {$S Main}
  12. {$SETC qNeedsColorQD := TRUE}
  13. BEGIN
  14.     InitToolBox;
  15.     IF ValidateConfiguration(gConfiguration) THEN
  16.         BEGIN
  17.             InitUMacApp(8);
  18.             InitUPrinting;
  19.             InitUGridView;
  20.             
  21.             New(gCicnApplication);
  22.             FailNIL(gCicnApplication);
  23.             gCicnApplication.ICicnApplication;
  24.             gCicnApplication.Run;
  25.         END
  26.     ELSE
  27.         StdAlert(phUnsupportedConfiguration);
  28. END.